(tmm-prompt): Set last-command-event before calling the

selected function.

diff --git a/lisp/tmm.el b/lisp/tmm.el
index ed5a93024c9aeec74b0ad6d330a79133578840ce..4215f1b5b72f75ab0ed2d087b0424cad5f4ab91c 100644 (file)
--- a/lisp/tmm.el
+++ b/lisp/tmm.el
@@ -214,7 +214,9 @@ Its value should be an event that has a binding in MENU."
          ;; We just handled a menu keymap and found a command.
          (choice
           (if chosen-string
-              (call-interactively choice)
+              (progn
+                (setq last-command-event chosen-string)
+                (call-interactively choice))
             choice)))))